ELőSZÉ A MASODUIK KIADÁSHOZ 


Mindannyian, akik részt vettünk a Hetedhét Carnmodore 54 
című Könyv létrehozásában, nagy örömmel vettük ts 
domásuúul, hogy munkánkat a közönség is s a kritika is 
kedvező fogadtatásban részesítette. Olyannyira, hogy 
hamar elő kellett rukKolnrurk a második Kiadással, mert 
az eléző alig pár hét alatt mind egy szálig elfogyott. 


ülvasáink Kérésére - és a nyomdai átfutási idő csökken- 
tése érdekében - az eddigi három füzetet egy kötetben 
foglaltuk össze. s ahol észrevettük, javítottuKk az elő- 
ző kiadás hibáit is. Az új kiadás árát így alacso- 
nyabbarn szabhattuk meg, mint az előzőé volt, Reméljük , 
olvasáink emiatt nem vonják meg rakonszenyvüket a 
KSÖNSÖTEL as ú 


Budapest, 1985. szeptember 
Novotrade RT. 


HETEDOHET 


eararnzuedenreez Észt 


HARMADIK HÉT 


EZ AZ UTOLSÓ KÖTET 


Egy kötettel ismét beljebb jutottunk a Commodore 654 
rejtelmeibe. Termeszetesen messze vagyunk még a celtól 
- mar ha egyetértünk abban , hogy célunk a gép 
megismerese. Hadd oszlassunk el egy talan felmerülő 
tevhitet: ennek a harmadik Kötetnek a végén sem lesz 
belőlünk tanársegéd a BASIC nyelv egyetemi tanszéken. 
Arra azonban alighanem jó ez a KÖNYV, hogy a 
Kíváncsiságunkat fölkeltse és ébren tartsa. A 
számítógép pedig majd elvegzi a többit. 


, VA z 
1. a HEF ASC ES CHR$, A KET IKERTESTVER 


Tudjuk már régóta, hogy a Commodore 64-en a — színeknek 
Kddszárnuk van. Azonban nemcsak ezeknek, hanem az osszes 
betűnek , számjegynek, jelnek is. 

Az A betú kodszama 865, az 8 jele 58; a teljes 
listát a könyv végen talaljuk meg. ; 

Ahaugy a telefonnal, itt is ketfele "tudakozó"? 
uan: ha a Kddszamot ismeri az ember , es a Karakterre 
Kívancsi, akkor a következőt kell begepelnie: 


2 CHR$(N) 
ahol az N helyere a kodszamot kell beírni. Tehát: 
27 CHR$( 191) 


mire a RETURNre a gep 3 "NM karakter Kiírasaval valaszol. 

; Ha pedig visszafele Kerdezünk , tehat a 
Kodszamra vagyunk KkKívancsiak, akkor a CHRS(N) helyett 
az ASC("N") kifejezest kell hasznalni. Ha beírjuk a 
következo sort: 


7? RSEC Ka 


akkor 3 RETURN megnyomas a utan a gep a 75-os szamot 
írja ki - ez a K betu Kodszáma. Ugyanígy 75-ot Ír: Ki 
akkor iz, ha azt mondjuk neki: sz ASC( "KALAP" ) , mivel ez 
az utasítas csak a stringek also Karakteret vizsgalja, 
tovabb nem. ÉPP erre epül egy jatekunk, amelyet KTESTtT 
kesobb íÍrunk le. 

A CHR$ tablazat nemcsak a Karakterek kodszamat 
tartalmazza, hanem a tobbi billentyúfunkcioet is, tehat 
a színek megvaltoztatasanak, a cursor -mozgatasnak Aa 
számát, stb. stb. 


ül 


Erdekes Kis Képernyő -tűzijatekot rendezhetünk , 
? ő 
ha az összes CHR$-funkciot felvonultato programocskat 
lefuttatjuk: 


. 19 PÜKE 53281.B8 

29 FOR Nzg TŐ 255 

39 FRINT N.CHR$(NM) ; 

49 FOR Jsi TO 290:NEXT J 
59 NEXT N 


Jókora összevisszaság is keletkezik olykor , de néha 
szabalyos tablazatta alakul a dolog sz attol fuggoen , 
hogy az illető CHR$-nek éppen mi a funkcioja. 

§ Ha lefutott a program, listáztassuk Ki, és 
utána Írjuk be: 


? CHREK( 14) 


és RETURN. 

Mi történt? A Program betúi mind Kizbetúv 
változtak, mintha együttesen lenyomtuk volna a Cs es 
SHIFT gombot. Úgy is van: sz CHR$(14)-nek pontosan ez 
feladata. Ha tehát azt akarjuk, hogy egy programunkban 
a Képernyöfeliratok Kisbetúvel jelenjenek meg, valahova 
az elejere be kell Írnunk: ? CHE$( 142). Ha pedig ismet 
nagybetúűre akarunk váltani. akkor a  CHR$H(1429)-t kell 
használnunk a programban. 8 

Mit kell tennünk, ha kddszamot keresünk arra, 
hogy a cursor színe bíborra valtozzék tes nincs keznel a 
tabiszat sem)? Meg kell Kérdezni a geptől, mert neki 
pontos leltára van. Írjuk be: 


w. Yv m 


7? ASCC "(CTRLHSJ") 


és RETURN. A gép válasza: 156. 

Ezután gepelj üK be: ? CHR3AK 156) , és a READY 
mar bíbor színnel jelenik meg a Kepernyán. Ha tehat egy 
szöveget bíborral akarunk Kiiratni, akkor egy ujabb 
lehetőségünk van raz elozo az MOd b hogy magába a 
SMP HE B írtuk be azt a Karaktert, amely a színvaltast 
előidézte). "Bárhol a Programunkban hasznalhatjuk e 
ködszamokat , a szamítogep engedelmesen vegrehajtja ezt a 
Kodolt utasítast. 


ij 


El lehet játszani ezzel is: ha az ember a 
táblázatot jól elteszi szem elol, és mindenfele 7 ASC 
és ? CHRE Kadokat gépel be. és megpr róbalja Kitalálni, 
hogy mi fog történni, ha megnyomja a RETUKNt. 

Mi törtenik peldaul, ha azt Írjuk be: ? 
CHRSKC 147) sz és RETURN? Mindjart Kiderül, mert 
Következő pFrogramunknakKk ez az elso sora. 


9 REM ASL-CHEE 

1 FRIMT CHR$(1473 

29 FPOKE 53281.1 

38 FOK Jsi49 TŐ 1536 

48 FRIMT CLHREr JI 

Ja FOR IsE3 TŰ 598 

6f FRINT THECGEoLHESr I); 
7A NEAT I 

84 NEAT J 

aA GOTO 39 


Az RSC ez a CHR$ söskástájás mint egymás túkörkepei zi 
Pontosan megfelelrek aymásnak. ? ASCCCHRR( 79)? 
eredmenye TD, aminthogy ?  EHR$CAS GE SET eredmenye F. 
Az F es a 7D a szamítogep szamára szorosan összetartozó 
ket adat. : 
Nas. akkor raterhetünk az ígert játékra, amely 
azt vizsaalja, hogy hany B betúvel kezdodo  harombetús 
szat ismerünk. (Ez egy nagyon SgNz ert Kis Program, 
Könnyen becsaphato: czak azt uizs galj pa hogy valoban 
B-yYel kezdődik -e az INPUTban Kapott SZÓ, es valoban 
harom betubol all-e. Tehat ugyanazt a szot többször is 


elfogadja, ez osszefuggestelen betucsoportokat 8 is ha 
B- vel kezdődnek. Hat Persze, hiszen Különben az 
Értelmező Szátár B betus sznsákiét kellett valna 


KkKijegyzetelnünk es betáplalnunk. 


A REM HARÓMBETUS, B-VEL KEZDODO SZAVAK 

18 FRIMT CHR$t147) 

z8 FRIMT"IRJI BE HAROMBETUZ SZAVAKAT E-YEL!" 
38 FRIMT "HA HEM TUDSZ TÖBBET. IRJ A-T!" 

48 LET Isa 

sa IMNFUT "HOZ"; Szüt 

6 IF HECCSZÜ$Is4ás THEM GÜTŰ 128 

764 IFASCCSZÜ$1€zE6 THEM GÜTŰ 188 

ag IF LEMÉSZÜ$2€s2 THEM GOTŰ 188 


ssevtasegg 


ő 


aA LET I5sI4t1:GOTÚ 58 

198 PRINT "EZ HEM JO!" 

119 GOT 598 

128 FRIMT I;"SZOT SOROLTAL FEL." 
139 END 


Itt is agy csomo dolog ismerős es vilagos, egy dolog uj 
csupan: a 3090-as sorban a LEN. Ez nem az ismert 
rostnövény, a textilipari alapanyag. hanern megint csak 
egy BASIC kifejezes, a "length", azaz "hosszúság" angol 
szo roviditese. EZ a EsőSIC utasítas megszamolja a 
stringekben találhata karaktereket, és Kéresre Ki is 
írja. me: 


16 IMPUT A$ 
z PRINT LEM(A$) 


es Kész. Ez termeszetesen nem lehet 
Korlátlan hosszusagu, a maximalis 
hossza legfeljebb jezó Képernyősor , 
azaz 89 karakter - de hat a 
stringjeink is csak ilyen hosszúak 
lehetnek, tehat ez nem okoz 
nehezseget. 

A. fenti prograrn terre - 
szetesen átírható ugy, hogy ne kö 
hanem mondjuk g betús szavakat 
Kérdezzen, es ne B betűvel Kez- 
dódjenek a szavak, hanern a-val 7 ez 
a gepnek nem okoz nehezseget, 
legföljebb a játékosnak... A ne- 
hezseget így tetszes szerint jnehet 


ÚT modosítani, tehát egeszen jód Kis 
af P/A s és 

tarsasjátek lehet belole. Csinaljuk 
is meg - legyen ez a mai feladat. 


ezeti HEE "OLYASD AZ ADATOKAT!" 


Nehany nappal Korabban már megpendítettük a vektorok és 
matrixok teémajat, most lássunk egy olyan Programot, 
amely leltárt csinal egy osztályban tál él ható 
ceruzakról. 

Az osztaly, ha mindenki a helyen ÉL a olyan , 
mint egy matrix: harom padsor, 0t-ot paddal, 
mindegyikben Két-ket gyerek: 


XX EX 
gmRXEEYXE 
k , Sk , lk , lk HK 2 
XXX XB 
gt XX EK 
XX XXX 


4 É d .. A 2 t ; 
es memelyiknek tobb ceruzaja is van, masoknak meg egy 
sincs. 


Ha a valosagos helyzetet felírjuk, egy 
tetszetős matrixot Kapunk , sorokba, oszlopokba 
rendezve, 

OSZLOPOK 
SOROK . o 1 2 3 4 3 
[aj 3 B a e ag e 
1 e ;t o e 1 4 
2 a ag 1 e ag [2 
3 a 1 1 [aj 3 [21 
4 e i a 1 Í 1 


Nevezzük el a matrixunkat így: CERUZA. Ha dimenzionálni 
akarjuk, Így határoljuk be: DIM CERUZA(4,5), hiszen 5 
sarunk ds 6 oszlopunk van, és az elsőnek 0 a szama. 

áz itt Következő program ezekből az adatokból 
az ismert módan próbálja Kiszamítani a ceruzak számat. 
Nezzuk meg figyelmesen?! 


5 DIM CERIJZAK 4, 5) 

19 OSSz-A 

129 FOR veg TO 5 

139 FOR AsG TE 4 

149 OSSZSOSSZHTERŰZRE Kv? 
1538 MEXT A 

160 NEAT Yv 

178 PRINT 05SZ 


Ez a program összeadja a matrix elemeinek erteket, a 
Program végen az ossz valtozo megmondja. hagy az 
osztályban összesen hany ceruza van. , 

Ha tudja. De hát honnan is tudna: hiszen nem 
mondtuk meg neKi. Ha így lefuttatjuKk, KiÍír egy nullát - 
a maga reszeéről ez minden, amit tud az úgyrel. Nulla 
darab ceruzáról inrformáltuk, ne Kívanjunk töle többet. 

AKi elegge 37ermi- 
fules, az eszrevehette, 
hogy ennek a programnak a 
Közepén egy jókora heza- 


got hagytunk a sor — 
számozasban: azert, hogy 
elhelyezhessuük oda az 
adatbeolvasasi Program- 
részt. Az adatokat eddig 
mindig egyesevel ado- 
gattuk be a Programozás 
közben, vagy az 
INPUTOKban; mast  meglat- 
juk , hogyan lehet egy 


csokorban beadni a gépnek 
az osszes adatot. 

Adatok angolul: 
DATA s ezt nern nehez 
magyar anyanyelvűnek sem 
megtanulni. 


A programba Kulon sorban beírjuk a megfelelo 
adatokat (a sor elejen csak ennyi all: DATA)? , es a 
szamítogepet egy alkalmaz utasitassal rabirjuk, hogy 
olvassa be ezeket. FEZ alkalmas utasítas ez: READ 
tejtsa: ríd, magyarul: olvass!) 

Az adatbeolvasási resszel es az adatokkal 
egyutt a pragramurk végzo formaja ez lesz: 


1 REM MATRIA-DRTA 

5 DIM CERUZA 4, 52 

19 0SS-ZsB 

28 FOR v-Aü TŐ 3 

39 FOR Ar TÓ 4 

40 RERD CERUZHÉ A va 

38 MEXT A 

60 HEXT Y 

78 FOR Az TŐ 4 

sb FOR vY-A TŐ 4 

99 PRIMT TRECé3 CERUZA Áá 99; 

199 MEXT Y:FRINT CERUZAC A, 3) 

119 MHEXT A 

129 FOR vsg TŰ 5 

128 FOR Az TŰ 4 

148 OSSZ5ÜSSZAZERUZAC A va 

158 MEXT A 

168 MEXT 7 

179 PRINT"AZ OSZTALYBRAM ÖSSZESEN" OSSZ" CERUZA VAN." 
299 DRTA 3.2.B.8.2.BD.1.B.1.1:.0.B.1.1.3 
219 DRTA 2.2.2.B.1.B.1.O0.3.152.4.0.0.1 


Látnivalo, hogy ket FOR. . . NEXT ciklus agyazódik 
egymasba; az előbbi, csonka Programban Kettő, itt 
haramszor kettd. 

Az Új ciklusok (a 20-astol a 6989-as sorig) 
beolvas sak a DATA sorak adatait, majd Ki is írjak a 
képernyőre Cerrol gondoskodik a 70-119 sor Közötti 
programrész). 

A READ utasítás megkeresi a programban a ORTA 
Kezdetú sorokat, es sorban , ahogy jönnek, 
behelyettesíti . az adatokat a megfelelő helyekre, 
(Vigyázni Kell a DATA sorok írásaánal: az egyes adatok 
Köze vesszőt Kell tenni, a sorok vegere viszont nem 
szabad! Egy DATA-sor, mint barmely mas Programsor a 
Commodore 64-an, 89 Karakter hosszú lehet.) 

A RERD nem lehet meg DATA nelkül. Erre nezve 
bizonyára mindenki szerzett már egy bizonyos 
tapasztalatot. Elég egy vigyázatlan mozdulat, amikor a 
cursor .a. képernyőn egy sarban A11 a READY üzenettel, 
amelyet a gép adott. Ha ilyenkor veletlenül megnyomjuk 
a RETURNt, a gep egy eddig megmagyarazhatatlannak tuno 
üzenetet adott: OUT OF DATA ERROR. (Magyarul: "nincs 
DATA" hiba.) De hát mifele DATArOl van szó? A 


11 


szamítogep a READY szot Így ertelmezte: READ Y., vagyis 
olvasd be az Y-ra vonatkozo adatokat. Ilyet pedig nem 
talált, ezert felelt hibaüzenettel... 
Gő Ez később is így lesz, ha véletlenül kevesebb 

DATA all rendelkezesre, mint amennyit Keres a program. 
Vigyázzunk hát, amikor  DATAR-sorokat írunk, nehogy 
adoósai maradjunk a gépnek. 

A Programban egyebkent többször is szerepelhet 
READ utasítás, és ha ezekhez Keves adat tartozik, 
azokat összegyújthetjük egyetlen DATA sorba, csak az a 
lényeg, hogy az adatok sorrendjere. vigyázzunk. 

No hat, akkor olvassuk a OAÁTÁAKaÁat. 


18 RERD KA 
29 DATR 19 
39 FRINT KA 


Itt is ügyelnünk Kell a változokra: a valos, az egész 
és a szöveges elkülönítendő, különben SYNTAX  ERRORt 
KapunkK a geptől. 

Mindezek ismereteben olvassuk át még egyszer a 
ceruzák nyilvántartasarol szóló programot, és játsszunk 
el azzal, hogy a DATA sorokban kicsereljuk a szamokat, 
majd megprobaljuk elore Kitalalni, hogy a matrixban hol 
fog jelentkezni az új ertek! 


S va HAáF FELTÉTELEK, FELTETELEK... 


HA holnap nem Kell Koran Kelni, ÉS este a család nem 
akar tevet nézni, AKKOR 3 ora utan is lehet gyakorolni 
a szamítogepen. B j j ú 

Kecsegtetóő kilatas; raadasul olyan formában, 
hagy BASIC programban is megfogalmazható. jé 

No Fersze, az IF. ..THEN szerkezet - de hat ott 
egy feltételről volt szo, itt meg Kettő van! j 5 

Sebaj: az ESnekKk angolul is van megfeleloje, es 
a BASICben is: az, hogy AND. A mondat, amelyet az első 
bekezdesben Írtunk , így Írhata fel magyar -BASIC 
öszvernyelven: 

IF holnap nem kell Koran Kelmi, 

AND a csalad nem akar tevet nezni, 

THEN 8 óra utan is lehet gyakorolni a 
szamítogepen. Í 

Ez perzze ebben a formaban meg nem foglalható 
programba, viszont "jól szemlelteti, hogy a BASIC 
Program egyszerre tobb feltetelt is Kepes vizsgalni. Az 
AND Kifed jezes azt jelenti, hogy a Program csak akkor 
ter át az "igen" agra, ha mindkét feltétel teljesül: ha 
tehát sem korán Kelni nem Kell holnap, sem a család nem 
akar tevet nezni. "Az "igen" ág tt Két "nem" szot 
tartalmazó feltetelből all, de ugye ez nem teveszt meg 
senkit? 

Az AND azonban még mindig nem az utolsó a 
sz ámítógepe felteteles mod szavai közül: ott van meg 
az OR 185, árás azt jeléntii VAGY cnaem ige, hanem 
Kötöszol!). Vagyis elő lehet írni a szamítógepnek azt 


iz. hogy eleg, ha a ket - vagy tobb - feltétel közül az 
egyik teli esuül! ; 
Először nézzük az magyar nyelyu peldat, mert 


3zért ez logikai feladat, mi meg inkabb szamítogepes 
szakemberek vagyunk. 


RUN 


IF holnap szombat lesz, 
OR holnap vasárnap lesz, 


THEN nem Kell Koran 
KELN1.z 
Ha tehát barmelyik feltetel 
teljesül a kettő közül , akkor 
megnyílik az "igen" ághoz vezető 
Kapu g azaz a THEN utani 


utasítások lepnek hatályba. 
IF esik az eső, 
OR erős szel fúj, 
j THEN nern megyünk 
Kirandulni. 


Melyik itt az : "igen" 
ág? Az, ha elmegyünk Kirándulni, 
vagy az, ha nem? Az "igen" ző 
mint tudjuk - mindig az az ag, 
amelyik a THEN utan következik, 
tehat ebben a peldaban a , nem" 
agon megyunk Kirandulni, es az 
vö 5 égaem" agon nem. Ugye vilagos? 
AKKOr menjunk tovabb. Ugyanis az ORt es az niet oszze 
is lehet Kapcsolni.. 


IF holnap szombat lesz, 
OR holnap vasárnap lesz, 
AND a család nem akarja nezni a tevet, 
Es , THEN este 8 utan is lehet gyakorolni a 
szamitogepen. 


Itt a harom feltetel Közül kettonek Kell 
teljesülnie: egyreszt annak, hogy holnap szombat vagy 
vasárnap legyen, másrészt, hagy ne akarjanak tevezni. 

1 .. Ebben a példában a vizsgalat úgy folyik, hogy 
eloszor megnezzüűk : milyen nap lesz holnap, esz ha jam 
szombat, sem vasárnap nem lesz, akkor a "nem" agra 
Kanyarodunk; azaz este nyolc után nem komputerezürik 
Ebben az ezetben mindegy, hogy a csalad akar-e tevet 


Z 
nezni, vagy nem. ki 
FA 
igyáznunk Kell persze, hogy a felteteleket a 
fá 
megfelelő sorrendben fogalmazzuk meg, rner:t z7zZamos 


14 


, s AY ím. d E ANN F NENT 1! FANNY SZRBÉ .: 
valasztasi lehetoseg nyiliK, ez konnyen mellekvaganyra 
futhatunk. 


IF a család nem akarja nezi Aa tevet, 

AND holnap szombat lesz, 

OR holnap vasarnap lesz, 

THEN este 8 utan is lehet gyakorolni a 
számítogepen. 


Itt első pillantásra sernrni Kkülönbseg nincs ,csak a 
sorrend változott. Pedig ebben AZ esetben a csalad 
tévénézési szándekát csak az első estére vizsgáljuk, Aa 
masodikra nam! Igy teves Következtetesre juthatunk, 
aminek az lesz a vege, hagy kidobnak a tevékeszülek 
elol. 

Ebben a peldátan a felreertest úgy lehet 
elcszlatni, hogy az egyutt vizsgaálanda felteteleket 
zarojelbe foglaljuk: IF a csalad nem akarja nezni a 
tevet, AND (holnap szombat lesz, OR holnap vasárnap 
lesz), THEN satöbbi. Ilyenkor a zárojel hatására a 
vizsgalat Kiterjed a masik felte itelre 15 ő 

gondod s uk vegig ezt a peldát, es utána is 


acndoljuk végig ilyen szempontból mirden egyes 
Programunkban az IF... OR... AND... THEN szerkezeteket, 
mert elofordulhat, hagy ezen múlik egy Programunk 


sikere vagy kudarca. 

De elég ezekből a foldhozragadt peldakbol, 
terj ünk ra a BASIC nyelvre, és nézzük meg ött a 
felteteles modot. 


IF A(7 AND 28-13 THEN GOTO 192 
Ez a programsor csak akkor Küldi a Programot a 1999-as 
sorra, ha A érteke Kisebb 7-nel. BG pedig 19-cel 
egyenlo. Ha barmelyik feltetel rern teljesül, a Program 
a következő sorra fut ra, nem a 199-ra. 


IF B9$-"K" OR BB$-"L" THEN END 


Itt a BOD$ lehet K is rneg Éz 16 s a Program mindkét 
esetben befejeződik. 


IF (A-19 ANU BO$-"K"? OR BO$-"L" THEN GOTO 199 


EKKOr a Program ket esetben ugrik a 1899-as sorra: ha a 
zarojelben foglalt feltetelek együtt teljesülnek. vagy 
ha a zarojelen Kívüli feltetel teljesül. Ekkor tehát 
elég, ha BO$-"L". 


IF A-19 AND (BO$-"K" OR BO9$-"L") THEN GOTUÚ 198 


Itt egyrészt A-nak 19-cel Kell egyenlőnek lennie, 
masrészt a zarojelben foglalt feltetelek valamelyikének 
kell teljesülnie. Tehát a program akkor ugrik a 1999-as 
sorra, ha A-19 és B9O$-"K" vagy ha A-19g és BO§-"L". 


No most, eldadodhat olyan eset is, hogy csak 
akkor akarjuk a programot a 199- as sorra ugratni, ha A 
nem egyenlő 19-cel, minden mas esetben igen. Ez peldaul 
úgy fogalmazható meg: 


egg IF A-19 THEN GOTO 229 
e1n GOTO 100 
ze PRINT "A ERTEKE 2"; A" 


Ezt persze egyszerúbben is megírhatjuk: 


209 IF A £2? 19 THEN GOTO 189 
21b PRINT "A ERTEKE :".A 


A feltetelekre vonatkozo logikai kifejezesek soraba 
tartozik meg a NOT (azaz: "mem") utasítas is, amely 
lenyegében ugyanazt jelenti, mint a beszelt nyelvben. 
IF NÖT - ez annyit jelent: "ha nem igaz, hogy..." es 
utána Koöveaetkezhetnek a feltételek. Fi legegyszerűbb 
példa: NOT (A-19) - ez ugyanaz, mintha azt mondanank: 
AK 219. 

Ugyanaz , de mégsem egeszen, hiszen pár 
karakterrel többet kellett gépelnünk hozza. Tehát ez a 
NOT csak arra jo, hogy megnehezítse a dolgunkat? 
Korántsem, 


IF NOT (A-B OR A-B) THEN GOTO 199 


Ez esetben csak akkor ugrunk a 1989-es sorra, ha HA2B. A 
Következő példában mikor ugrik a program 1A00-ra? 


IF NOT (CCA AND D-A) THEN GOTO1I1BO 
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ek a HEEF MENJ A..., DE TÉRJ IS VISSZA! 


Geépeljük be az alábbi Programot! 


8 REM MIHD ERTELMES? 

19 FÜKE 53289.5:POKE 537281.13 

28 FPRIMT"7aw":REM CLR/HOME.CTRL-1 

39 A$ZL195"EN" 

48 A$(2Iz"EZT" 

39 AZ(SIz"MÓMOTAM" 

69 AZ(4Iz "MAR" 

78 A$(SIsz"EDYSZER" 

99 A$(S6IZ "TALAN" 

99 A$(7 z"MEKED" 

198 PRINT:PRINT" TUDOK 7 OLYAM SZOT," 
119 PRIMT" AMELYEKBŐL; HA MONDATOKAT" 
129 PRIMT" KESZITESZ,. MINDEN MOÓOMDATOD" 
158 PRINT" ERTELMES LESZ." 

149 PRIMT" HA HEM HISZED; JARJ UTANHRI" 
158 FRIMT:FRINT 

169 PRINT"IRD IDE A SZAMOKAT 1-TOL ?7-IG" 
170 PRIMT" TETSZŐLEGES SORRENDBEN!" 
189 FPRINT:PRINT 

199 FOR Is1i TŰ 7:IMPUT B(I3:MEXT I 

290 PRINT:FRINT 

219 FOR Is1 TO 7 

zzz PRIMHT" ":A$(B(I13; 

230 MEXT I:FRINT"." 

z49 GOTO 158 

265 PRIMT:PRIHT 


Ebben a Programban minden . elem ismeros, az utolsó 
vesszóig; legfoljebb a 2209-as sorban tűnhet egy Kicsit 
gyanusnak e Kifejezes: AR(BKI)). Ez, ha nem is teljesen 


17 


idegen gondolat, mégis zzokatlan lehet az első 
pillantásra. Gondoljuk tehat vegig. 

Itt az Ap indexét egy másik vektorelemmel 
határoztuk meg. Ez teljesen szabályos; a valtozók 
indexében S azaz a zaárojelen belül) barmilyen kifejezes 
állhat; az a lényeg, hogy az ertéke egesz szam legyen , 
es ne essen kívül a tömbünk hatarain. A Bf I) esetében 
ez a ket feltetel teljesül is. 

Ha eljátszottunk a Programmal , es elamultunk 


azon, hogy milyen hatartalanul rugalmas a . magyar 
szorend Cchiszen ezt a het szót osszesen 
1k2x3X4X5X564X7-59409- -felekeppen lehet mas es mas 
sorrendbe rakni), szóval ha már elegge ismerjük a 


Program működeset, írjuk át a következokeppen ! 


G REM MIMD ERTELMES? 

19 FOKE 5532308.3:PÜKE 53291,13 

29 PRINT"WW" 

38 A$(19m"ENM" 

49 A$(2ZIM"EZT" 

50 A$C3iz"MOMŰTRHM" 

69 A$(4Iz "MAR" 

78 A$(CSIz"EGYSZER" 

80 A$(SIZ TALAN" 

98 A$(7)m"NEKED" 

199 GOSUB 169 

119 GOSUB 2539 

129 PRINT:FOR Isi TŰ 7 

139 PRINT" "A$(BA(IJ2; 

149 MEXT I:FRIMT"." 

1239 GOTÓ 119 

168 REM KIHIVAS 

1709 PRINT:PRINT" TUDOK 7 OLYAM SZOT." 
1989 PRINT" AMELYEKBŐL; HA MÓMDATOKRT" 
190 PRINT" KESZITESZ; MIMDEN MOMNDRTOD" 
200 PRINT" ERTELMES LESZ." 

218 PRINT" HR .MEM HISZED, JARJ UTRHHRI" 
zzz RETURM 

238 REM VALASZTOTT SZAMSOR 

240 PRINT:PRINT 

250 PRINT"IRD IDE A SZAMOKAT 1-TŐL ?7-IG" 
260 PRIMT" TETSZŐLEGES SORRENDBEN!" 
278 FOR Isi TO 7:IMPUT B(I5:MEAT I 

z89 RETURN 


1£ 


Itt már van újdonság: a 1099-as és a 119-es szorban a 
GOSUB. (Az angol Kiejtéze goszab, de sokan magyar: osan 
aosubnak mondják.) EZ ; akárcsak a GOTO, két szobol allt 
össze, a GO 0 ("menj") és a SUBroutine (€ "al-rutin")?) 
szavakból. A rutin jelenteset csak röviden mondjuk el, 


mert igazabol a gyakorlatban derül Ki: olyan 
programrész, amely többször is / sorra, Kerül ,a 
prograrnban, vagy esetleg csekely valtoztatasokkal mas 
Programba ÉS áttehetoő. A szubrutinm ennek az a 
változata, amely GOSUB utasítással hívható meg. 
Lényeges tulajdonsága. hagy a végen égy RETURN (ejtsd: 
ritorn; jelentése: térd vissza!) utasítás all - ez nem 
tévesztendő össze a RETURN billentyűvel! 
A GUSÚUB 


tulajdonkeppen 
hasonlít a, GOTO- 
hoz, egy lenyeges 


Kkülönbseggel: a 
VINEE; 

szubrutirn vegen a 

program futasza. 


ott folytatodik, 
ahonnan a  GOSIB 


hatasara elug- 
rott; erre ad IRETURN 
parancsot a 


RETURN. Ha tehat 
a 1099-as sorban 
ez all: GOSUB 
2DO0OD:PRINT A$( 12 , 
akkor a program a 
1990-as sorra erve 
leugrik a 2009- 
.esrea, vegrehajtja 
az ott Kezdődo 
szubrutint, aztan 


viszzaugrik, es 
á- át sú 

Kiirja az A$K 12 
P , g; , 

erteket, akarmi 


legyen is az. 
Ha ugyanabban a programban tobbszor is  alkalmazzuKk a 
GOSUB utasítast, ez vonatkozhat mindannyiszor ugyanarra 
a szubrutinra is, meg Különbözökre is; a RETURN mindig 
oda fordítja vissza 3a programot. ahonnan legutóbb 
elugrott. 


A GOSUB hallatlanul jol használható a BASIC 
programokban; tiszta csoda, hagy eddig meg tudtunk 
lenni nélküle. A Következő napan már olyan programot is 
fogunk vizsgálni, amely egy szubrutint többször hasznal 
fel. Egyúttal.pedig valaszt Kapunk egy regota esedékes 
Kerdésre ÚS s 


sz KI 


vedd sás BH EF A SZÜRKE GOMBOK TITKAI 


Ha az ember ranez a Commodore €4 mikroszamítoógepre, 
azonnal szemébe tűnik, hogy a billentyűzet Ket reszre 
oszlik. A nagyobbik területen a szorosan egymas mellett 
elhelyezett, barna billentyűkön az ábécét, a számokat, 
jeleket és egyebeket látjuk; ezeket szinte Kivétel 
nélkül használtuk iz már. 

Ott van azonban egy sokkal Kisebb billentyú- 
csoport is a jobb szélen, jal elkülönítve, a színük is 
mas , a méretük is, a jelölesük is: f1/FfFe, fF3/f4, f5/fE, 
f7/£8 olvasható rajtuk. 

Ezeket a billentyűket eddig úgy kerültük, mint 
a parazsat. Talán többen fel is tették maguknak a 
kerdest, vajon miféle veszélyt rejtenek. Nos , vessünk 
veget ennek a bizonytalanságnak. Nyomjuk meg valamelyik 
f billentvyút, es nezzük, mi törtenik! 

Semrni. 

Nyomhatjuk barmelyiket, akar egyutt a SHIFTtel 
vagy a RUN/STOPFpal, a CTRL vagy a Cz segedbillentyűvel, 
akar egyedül, a vilagon semmi valtozast nem látunk a 
kKepernyarn. Ha egy meglevo Programurkat betöltjúk, és a 
futása Kézben nyomkodjuk az f gaembokat, akkor sincs 
hatásuk. Ezek a billentyuK egyszeruen nem befolyasolják 


a szamítogep mukodeset - haczak mi magunk nem "adunk 
nekik szerepet, hataskort. latin eredetu szoval: 

já (4 1 e: , 
funkciot (ezert is all rajtuk f betu: a funkcio szo 


rovidítesekent). ; ; 

A negy f billentyu tulajdonkeppen nyolc: ezert 
is Vannak 1-tel 38-ig szamozyva. Onmagukban megnyomva fil, 
f3., f5,. f7, a SHIFTtel egyutt pedig f2., f4. f6E, f8 a 
nevuk. 

A pRrogramjainkban azonban nem igy kell 
hivatkaznunk rajuk, hanem a CHR$ szamuk alapjan. Irne 
egy Kiz tablazatban a nyolc £ billentyű szemelyi 
adatai: 


Billentyú CHRE 


fa ( 1332 
Ea ( 134) 
5 49 SG herb) 
f7 £ 136) 
fe ( 137) 
f4 ( 138) 
f6 ( 139) 
fe ( 149) 
Ha fellapozzuk a könyv végen a CHRE táblázatot, 


meglátjuk, hogy az e szamokhoz tartozó funkció helye 
üres; arra vár, hogy mi töltsúk meg tartalommal. 
Mindjárt meg is látjuk, hogyan. Írjuk be ezt a Kis 
Programot: 


g REM FUNKCIÓBILLENTYŰJK 

19 GET A$:IF Aás"" THEM ií8 

2A IF ASC(A$IC133 OR ASCÁA$I2136 THEN 14 
39 IF ASC(A$35133 THEN GOSIJB 188 
49 IF ASC(A$os134 THEN GÜSIJB 288 
59 IF ASC(R$5:135 THEM COSUB 388 
68 IF AST-A$I151536 THEN EMD 

78 GOTO 19 

198 POKE S3z2z84.1 

118 RETLRM 

za POKE 532884 

218 RETURN 

398 POKE 553298.A 

318 RETURN 


Ebben a prograrnban bőven el vagyunk latva újdonsággal. 
A 19-es sor mindjárt Két erdekesseéget is kínál; az első 
a GET. Ez a szá angolul mindenfélet jelent, többek 
Között azt is, hogy megkapni vagy megszerezni. Itt ePP 
ebben a jelentésében szerepel. 


A GET A$ tehát annyit tesz: szerezd meg az 
A$-t. Az A$ pedig, mivel "erteke a prograrnban nincs 
meghatározva, a billentvyuúzetról érkezik. Ennyiben 


hasonlít a már jól ismert INPUThoz, de egy különbzseg 
van Köztük: a GET nern varja meg; amíg megnyomjuk a 
RETURN billentvút, hanem azonnal tovabblepteti a 
Programot. Ebből következik, hogy a GET utasítassal 


szt ante 


csak egyetlen karakterre Cbillentyúre, CHR$-re, ahogy 
tetszik)? utalhatunk. Ebból nem Következik ugyan, de ide 
tartozik még egy fontos tudnivald: a GET akkor sem vár, 
ha rern nyomunk meg semmilyen billentyút. Ahhoz , hogy 
várja meg a. billentyúnyornást, kulon utasítást Kell adni 
reki. Hagy ezt hagyan Kell. már benne van Programunk 
1909-es sorában: 


19 GET A£$:IF A$-"" THEN 1[ű 


(4 

A ket, szarasarn egymas 
, e [/ 

mellett álló idezőjel 


valoban az, amirekK 
latszik: a semmit 
jelenti; egy tartalarm 
nelküli stringet. 


Tehat esetünkben azt, 
hogy az A$-nek nincs 


d Ő 
ő erteke, merrt nem 
Ny nryomtunk meg semmilyen 
Ke ) 
gombot. 


Erre az eset- 
re az IF...THEN szer- 
kezet azt az utasítást 
adja a számítogepnek, 
hogy menjen A 19-es 
sorba. £ Itt elarultunk 
meg egy egyszerűsítesi 
lehetőseget is: a THEN 
utan a Comrnodore 
BASICben em eraé hat a 
GOTD ; a aép Így is 
megérti az utasítást.) 
A pragram engedelmesen megy is a 19-es sor elejére sz 
vuagyizsz oda, ahol azt találja, hogy GET A3$, satcbti. Igy 
jar 3. 1292-es sorban körbe-körbe mindaddig, amíg meg nem 
nyarnurnk egy billentvűt. 

Ha pedig rmegnyorwuaunK egyet, akkor a gép elkezdi 
kiértékelri a beadott adatot. A 20-as sor arra szolgál, 
hagy az. nsszez többi billentyűt letiltsa, csak a négy 
funkcidóbillentvűt hagyja ervenyesülni. tNyilványalot ha 
a megnyomctt billentyu ASC erteke kisebb. mint az f1 
gambe, vagy magasabb, mint az f7-e, AKKOrF a programot 
azonnal visszakuldi uk 3. 1292-es SAVPPA z magyarán: mas 


ezi 


billentyút nem veszünK figyelembe, csak azt a bizonyos 
negyet.) ; 

Ezután Következnek a GOSUBOK. Az f1 billentyű 
Kodja a 199-as sorban kezdődő szubrutinra küldi a 
programot, az f3 a 289-asra, az f5 a.  3988-asra, az 
£7-től pedig a program befejeződik. ; 

A szubrutinokból a RETURN utasítás hatasára a 
program mindig visszatér oda, ahol a  GOSUB utasítast 
Kapta, onnan az IF-es Kifejezések "nem" ágán Keresztül 
a 7090-es sorra, amely visszaküldi a 19-esre, hogy varja 


? A 
a további gombnyomásokat - lasd mint fent. 
Hogy ez a program mit csinál, azt egyszeruen 
Ya z 
nem vagyunk hajlandok elarulni - a szubrutinokban benne 


van, csak ki Kell olvasni, és visszaemlékezni arra, 
hogy az első kötet masodik napján miról volt szó. 

De ha még bírjuk, es Képesek vagyunk egy új 
utasítást megtanulni, a fenti programot jelentősen 
leegyszerűsíthetjük az ON utasítás használatával. 


9 REM FUNKCIÓBILLENTYIIK. MASKEPP 
19 GET A$:IF A$z"" THEN 19 
29 IF ASCCA$os136 THEN EMI 
39 KAZASCCA$I-1537 

49 ON KA GOSLIE 194.290.398 
58 GOTÚ 198 

1989 POKE 532841 

119 RETURN 

290 POKE 59280 .4 

210 RETURM 

399 POKE 53789. 

318 RETURN 


Látjuk TF egyetlen sorban három GOSLUB utasítaszt adtunk. Ki 
az ON segítségevel. 

E szo jelenteset az angolban sokkal Könnyebb 
megadni, mint a BASICben. Angolul ugyanazt jelenti 
ugyanis, mint magyarul: -an , (an the monitor z a 
monitoron.) Ez esetben. a BASICben azonban egy rugalmas 
működésű szó: azt Jeléntisz hogy a hozza Kapcsolt 
változó (minalunk a KM) ertékenek megfelelően hajtsa 
végre a következő útasítást. Ha tehát KX-EI, akkor a 
GOSUB után első helyen állo számú sorra ( azaz a 
199-asra) ugorjon, ha K/-2, akkor a 299-asra, ha pedig 
K/-3, akkor a 399-asra. 


sz ét 


Az ON csak egyesevel tud számolni, egytől 
felfelé, ezért a KX eprtékét a 3080-as sorban úgy 
határoztuk meg ; io a megnyomott funkcidbillentyúk ASC 
Kddjanak számértéket lecsökkentettük 132-vel. ( Tudjuk: 
ezek közül a legkisebb 133, es egyesevel nGyekszik.) 

Ezt az utasítást nemcsak a GOSUBbal , hanem A 
GOTOVal is használhatjuk, ha egy változó ertéketől 
függően egy helyről különböző helyekre aKarjuk ugratni 
programunkat. HA ret fi ji 

A Vegezetul probaljuk meg oöosszegyurni a 
legutóbbi Ket programunkat! Rakja az új Program az 
általunk megadott sorrendbe a mondat szavait, emellett 
legyen lehetőségünk arra, hogy megváltoztassuk a keret 
(fi) és a hatter ef39 színét, az kest megnyormasara új 
számsorrendet Kérjen, az f7 pedig állítsa le a Program 
futásat. 


6 REM MIMI! ERTELMES? 

14 FOKE 53288.,5:POKE 53281.13 

ző FRINT"" 

39 A$l1js" EM" 

48 A$lzZoz"EZT" 

Ja A$CS3Iz"MOMNTHM" 

éb A$(4iz "MAR" 

79 AS(Ssz"EGYSZER" 

88 A$CSIz TALAN" 

98 H$(7iz"NEKED" 

199 GOSUB 169 

1198 GET C$:IF Lláz"" THEM 118 

129 IF ASC(r$ir136 THEM END 

139 KAZASÜÁL$1-152 

148 ÜN KA GOSUB 480.5AA, 3A8 

1598 GÜTŰ 118 

169 REM KIHIVAS 

176 PRINT" TUDOK 7 OLYAN SZOT." 

188 FRINT" AMELYEKBŐL HA MÓMHDRTOKAT" 

1958 PRIHT" KESZIÍTESZ. MIMDEM MÓHURTOI" 

zá PRINT" ERTELMES LESZ." 

218 PRINT"HA MEM HISZED. JARJ UTRHHI" 
. ző RETURHM 

sk REM VALASZTOTT SZHAMSÜR 

319 PRIMT:FRIMT 

328 PRIMT"IRD IDE A SZAMOKAT 1-TOŐL 7-IG" 

329 PRIMT" .. TETSZÜLESES SÖORRENŐBEN!" 


pealbna ] 


348 FOR Isíi TO 7:IMPUT B(I3:NEXT I 
3509 PRINT:FÜR Izi TŐ 7 
369 PRIMT" "B$(BCI23; 
378 MHEXT I:FRINT"." 
389 RETURN 

498 REM KERETSZIMEZÍ 
419 Z/zINT(I6ERMDCi:: 
428 POKE S3288.,ZA 

438 RETURN 

300 REM HATTERSZINEZO 
319 S/sIMT(16$RMD(1193 
929 P(IKE 53291.585A 

539 KETURM 


VÉ aa HEHE ORA INDUL ! 


ge / 
Említettük, hogy nemelyik vaáltozonev foglalt, nem 
hasznaálhataá. Azt azonban nem mondtuK meg, hogy mi célra 
foglaltak. Kettóról most mindjárt Ki fog derülni. 


18 TI$z"BO9g980" 

ZO PRINT TI$ 

39 PRINT "TI":REM CRSR FEL KÉTSZER 
49 GOTO 28 


; " ; Z 1 : ; 
Mielott elindítanank ezt a a programot. aruljuk el, mi 
ez a TI$. 
ep , Fa [ú , KE a v [d .. A 
A szamitogep belsejeben egy ora mukodik, 
[d fd .. , , 7 
amely, ha maskent rem rendelkezunk, Keresre a gep 
, [A [/4 
bekapcsolasátol mert időt Írja Ki a kepernyore. 
/ [4 s ús 
Próbaljuk Ki ezt az orát! Gépeljük be: 


9 EE 


és RETURN. Most nem tudjuk pontosan megmondani, mit ír 
ki a aép, mert ez attól függ, hogy midta van 
bekapcsolva. Mindenesetre egy hatjegyúű szamot latunk a 
képernyőn , amelyből az első Kettő az orákat, a második 
kettő a perceket ,a harrnad ik Ketta a másodperceket 
jelenti. 

Ennek az dranak a mindenkori allasat 
írathatjuk Ki a kepernyore sz öli B es a TI$ valtozokkal. A 
TI$ a digitális Karorak altal is mutatott rendszer 
szerint, a TI (ez, a nevéből is Kiderúl, valds valtozo) 
hatvanad másodpercenkent. Prdbaljuk ki ezt is! 


7 TI 
7 [4 .. j A / / g 
es RETURN. Ekkor egy regy-ot-hatjegyu szamot bél ad Ki 


a 
gep: ez 4 pillanatnyi értéke. Ha felmegyünk a 
3 
Gtúrsorrál a ? TI sö6fraász es ismét megnyornjKkK a RETURNt, a 


sét 


számot tartalmazó sorban új szám írodik Ki a. régi 
helyére, és ez annyival lesz magasabb, ahány hatvanad 
másodperc eltelt közben. 

A gépnek ez a tulajdonsága remek stopperora-! 
program megírására ad lehetőséget. Kezdjük az alappal. 

Ha bekapcsoljuk a — gepet, betöltjűük a 
stopperdras programot , ez elindítjuk, ezalatt jó néhany 
masodperc eltelik. Marpedig a stopperorat nullarol kell 
indítani, különben nincs értelme. 

Erre természetesen gondoltak a gep 
konstruktőrei 15 a Első PpProgramszorunk legyen a TI$ 
ertékenek nullara allítása. Ez igen egyszerű: 


10 TI$-"DD000D" 


Most még semmi nem történt, hiszen csak egy programsort 
írtunk; az dra által mutatott idő csak akkor all majd 
nullára, ha a programot elindítjuk. 

Most Írassuk Ki a TI mindenkori érteket. 
Tudjuk; hogy a TI hatvanadmásodpercekben számol , a TI$g 
pedig draban, percben , másodpercben. Az utóbbi közelebb 
All hozzánk, ezért hasznaljuk azt. 


ed ? TIS 


Itt annak az utasításnak kell következnie, amelyik a 
cursort visszakuldi az. előző kepernyősorra, hogy az ora 
egyhelyben álljon a kepernyon , ne egymas ala írodjanak 
a Különböző ertekek. Ehhez vissza kell leptetni a 
cursort. 


30 7 CROR FEL KETSZER " 


Es vegül vissza kell fordulni a Prograrn elejere, TI 
Következő ertekeert: 


49 GOTO 29 


Keszen 15 vagyunk. A programot elindíthatjuk, a stopper 
a RUN szó alatti sorbari működesbe lep, ez "999000" -tő1 
szepen számol fölfele. Ha elerte a "OD9A059"-es erteket, 

nerm "hagpen" Következik, hanem "990199", tehat a 
percekhez hozzaad egyet, a masodperceket nullarol ujra 
kezdi. 


ezaz 


Egy valamirevaló stopperora Persze legalabb 
tizedmásodperceket mér; amihez már a TI$ nem 
alkalmas ,hiszen az másodpercenkent lép tovább. E1ő Kell 
vennünk a TI változot, es meg kell szelídítenünk. 

E Ha a TI hatvanadmásodperceket mér , akkor ebből 
masodperceket úgy kapunk, ha elosztjuk a mindenkori 
értéket hatvannal. Ir juk át Programunk 29-as sorát Így: 


29 PRINT TI./6560 


fd 
Az így elindított Program egy irgalmatlanul hosszu 


számot ír Ki, vagy Kilenc tizedesjeggyel, és a 
tizedesponttol balra egyesével szamol felfele. A 
tizedesjegyekből csak az elsdre van szükségünk, a 
többit elhagyhatjuk ; hiszen úgysem tudjuk szemmel 


Követni Öket, meg aztán úgyis csak hármasok meg hatosok 
vannak benne (hiszen hat töübbszöröseével osztottunk). 
Hagyjuk hat el őket. Emlekszünk, az RND függvennyel 
Kapcsolatban találkoztunk az INT Kifejezeéssel, amely 
törtszámokboól " leválasztotta a tizedesjegyeket. 
Használjuk fel most is ezt. 


29 PRINT INT(TI/60) 


Meg mindig nern jutottunk tovabb, mint ahonnan 
elindultunk: most a program Körülbelül Ugy működik, 
ahogyan a TI$ változóval — múküdó programunk működött, 
azzal a hátrannyal, hogy a 69-as ertek utan 81-et ír 


Kisz tehát csak másodpercben számol, percben nem. 
Ráadásul még mindig rem látjuk sehol a tized- 
másodperceket. 

No , a tizedmásodpercek gondjat most már 


Könnyen megoldjuk. Egy tizedesjegyet Ki kell mentenünk 
, , Z 

az INT hatasa alol. Ezt úgy csinaljuk, hogy a TI 

fé §. 

értéket két reszletben osztjuk hatvannal: eldbb hattal, 
[ 

aztan tízzel, de az INT a tízzel való osztásra nem 

, 

vonatkozik, ezt az egy tizedesjegyet engedelyezni 
a dd ké B z , bi e 

fogja. Ez konnyebb. mint hinnénk: csak egy zarojelet 

Kell ügyezen beiktatnunk: 


eg PRINT (f INTKCTI/8B29/19 


1 d g X 2 fá 
A Program meg mindig csak masodpercben szamol, a 
B. új § sé 7 d § ús 
Percekroal nem vesz tudomast. de a tizedeket mar kiírja. 


s SA 


FA £ 
Egy perc alatti időket mar tudunk mérni vele. 
Ez perzze még mindig csak része Aa sikernek. 
Most azt kell elérnünk, hogy a gep Kiírja a pFercek 


erteket, ehhez minden hatvanadik masodpercben 
hozzáadjan egyet, a másodperceket pedig allítsa 
nullára. j 

Hogy áttekinthetőbb legyen a változok 
rendszere, a másodperceket nevezzük el MP-nek , a 


Perceket B nek! 
Írj uk újra a Programot így: 


A PRINT CHR$C(1475:CLR:PRINT" § PERC"; 
19 TI$:"0990099" 

Z9 MPsCIMTKTI/6237/18 

39 REM IDE MASD IRUNMK MEG VALAMIT 

48 PRINT TABK125MP.," MASODPERC" 


39 FRIMT "TT" 
ég GOTÓO 28 
A nullas sorban lathato uj utasítás, a CLR (az angol 
/ fd je , 
CLEAR , ejtsd: Klir; magyarul: "tiszta" szo rövidítese) 
az összes változó erteket nullára állítja s. ezt a 


biztonság kedveert tettuk oda, mert már jo néhányszor 
átallítaattuk TI$g erteket, es bevezetünk új valtozókat 
18 a Jobb, ha amikor futtatni Kezdjük a Programot, a 
változcink érteke mind 9. 

Az így lefuttatott Program üres Kepernyóvel 
Kezd. Kiírja: B PERC, utána számlalgatja az egész es 
tizedmásodperceket, ezektől jobbra pedig meg azt is 
Kiírja: MASODPERC. 

Hogyan oldhato meg , hogy minden hatvanadik 
másodpercben a PERC szó előtt álló számjegy eggyel 
emelkedjék? Sejthető, hogy az IF... THEN szerkezetet 
Kell használnunk, és ez igaz is. Írjunk be egy új 3989-as 
sort! 


39 IF MP-6OD THEN 199 


Fj .. 7 1 , pm 
es egeszítsük Ki a Programot ket uj sorral a vegen! 


199 P-Pt1 
209 PRINT P;: GOTU 19 


Hát itt mit csináltunk? A P-Pt1 egy eddig nern használt 


Ms) 


változó erteket emeli meg eggyel. A CLR, mint mondtuk , 
mindent nullara állít, tehát ha új változót veszünk 
fel, az is 9-rail kezd, ha előtte maz erteket nem adunk 
neki. Igy amikor a programban az DP értéke először éri 
el a 59-at. és a GOTO leküldi a a programot a 109- 7as 
sorrá.,. ehhez a 0-hoz ad hozza 1-et a gép, és a képernyő 
bal sarkában álló B PERC felirat első karakterét 
Kicséreli 1-re. Utána visszaugratja a programot arra a 
sorra, ahol a TI$ erteket nullaztuk le, ennelfogva a 
masodpercek 60-nal nem ndánek tovabb, hanem újra 
indulnak 0-rál. 

Kész a stopperorank, Kivihetjük kazettára vagy 
lemezre, és csinálhatunk belőle olyan szubrutint 18 ő 
amely egy program futása közben a JA tos reakcioidejét 
méri. Egy ilyen felhasználását látj majd a hetedik 
nap programjai között. 


Utolso  munkanapunkon vegigkövettük tehát, hogyan 
születik meg egy meghatározott célú BASIC Program, 
milyen gondolatmenettel építjük fel, hogy azt a célt 
ná valtas amit szántunk neki. Utolsó gyakorlatkent 

riuK majd át úgy, hogy ha a Percek száma eléri a 
Bf-aite akkor crakat is szamoljon! Az eddigiek 
ismereteben ez nem lesz nehez. 


A hátralévő egy nap arra szolgal, hogy nehány 
mintaprogram segítsegeével átismételjük, amit eddig 
megismertünk a Commodore 64 miKkroszamitogep 
Képessegeiből. 

A gep termeszetesen sokkal többet tud. mint 
amennyit egy ilyen 21 napos Kis tanfolyamon meg lehet 
tanulni, de mostantól ha újságban, Könyvben C 864-re Írt 
BASIC programlistat látunk, nagy reszet rneg fogjuk 
érteni, és ez az első lepes ahhoz , hogy mind nagyubb 
mertekben tudjuk. a sajat szolgálatunkba állítani a 
gepet. 


". HHF EGY KIS RAADAÁS 


Az utolsó napon, ami e könyvből hátravan, vegyünk meg 
nehany programot . Az első egy tavábbfejlesztett vál - 
tozata a korábban már megismert csillagos Programnak . A 
csillagok ezúttal már sokszínúek;i a Kepernyő olykor 
tüzijatékhoz hasonlít. 

: Ez a program nem az összes színt hasznalja, 
ezért akinek Kedve van , áatalakíthatja Ugy, hogy a 
Cecmmodore B4-nek mind a 16 színet tartalmazza! 


8 REM SZINES CSILLAGOK 

19 DIM A(157 

za POKE 53288.8:POKE 5537291.§ 

39 PRINT "2T":REM SHIFT-HÜLR/HOME 
49 Alasz5: Al 19528: A(2osga AL 31531 
99 A(d4dszizg:A(5i5s144 

69 FOR I56 TO 13:ACIojsIt143:NEAT I 
78 AL14951558:At1555159 

80 F5IMT(39£RMD( 1190 

99 OZzIMT(ÉZ2ERMD£ 12? 

189 SzIMT(15£EMD( 14. 

118 FOR YzA TŰ 3:FRIMT:HEAT Yv 

128 FRINT TRBCPOCHREC(ACS22"" 

158 FOR Ms1 TŰ (19£8RMIOK139:MEXT MM" 
148 PRINT"á" 

158 GÜTŐ 48 


A rnassadik program egy rovid ellenorzes, mennyire 
ismer juk a billentyuz etet, , a Karakterek 
elhelyezkedeset. Ha a programlistat megfigyeljuk, 


Kiderül, hogy a jatek itt időre megy! 


A REM BILLEHTTUZEÉT-TESZT 
a PRINT" 
18 FERIMT"MEMHMYI IDD ALATT TALALOD MEG" 


SAID 


28 PRINT"A KARAKTEREKET?" 

39 PRINT"HA MEGJELEMIK EGy JEL. A LEHETŐ" 

40 FRIMT"LEGGYORSABBAM CSALD ELŐ MEG EGYSZERI" 
539 PRINT"HA MEGUMNTAD, HYOMD MEG AZ F1- ET!" 

63 PRIMT"NOSZA, s." 

79 KARSINT(ES2ZERMD( 89433 

89 PRINTTABAÁSICHRECKAR) ; 

98 TI$-"B98099" 

199 GET A$:IF A$z"" THEN GOTO 199 

110 IF ASC(AR$Is1533 THEM END 

120 IF A$SCOCHRE-LKARI THEM GOTO 188 

139 MArYALKÁTI$) 

1489 IF M/CSO THEM PRIMTMA" MASODFERC":GOTŰ 78 
158 PAzMAr 198 : MAZsSMA-PAH19B 

1609 PRIMTPA" FERC"MRZ" MASODPERC" 

179 -GOTO 78 


Az itt Következő Programmal abece-sorrendbe 
rendezhetúnk barmilyen nevsort, az : utána Következő 
másik valtozat pedig a betűrendbe szedett neveket ki is 
nyomtatja. 


REM ABELCLE-SÜRREMD 

19 IMPUT "FA MEVEK SZAMRA ";M 

2 DIM A$(M-41: 

39 FOR IzA TŰ M-I:IMPUT A£(I5:MEAT I 
49 FOR KkK:ú TO M-1 

58 FOR Lskr1 TOM 

69 IF AS$(LI5zHA$-rkKI THEM 188 

78 S$5-A$-L) 

89 A$(LI5SA$(K) 

98 AS$(KosS$ 

108 MEXAT L 

118 MEAT KE 

120 PRINT :FRIMNT"BETURENMDBENM : " : PRINT 
139 FOR Isü TŰ M:PRINT A$(I9:NEAT I 


REM ABECE"SÜRREMD PRINTERRE 

3 PRIMTEG" 

18 IMNFUT "A SZARVAK SZAMRA ";M 

zh [IM A$(M4$1; 

38 FOR Isg TO M-L:IMFUT A$(I2:MEAT I 
af FOR Ksü TO M-1 


sz sz 


58 FOR Lskt1 TŰ M 

ER IF A$(LI55A$(KI THEN 194 

780 S$:A$(L.) 

89 A$(LIzH3$(K 

99 A$(Kizs$ 

198 MEAT L 

118 HEXT E 

115 ÖPEN1,4:CMD1 

128 PRIMT:PRINT "BETUREMDBEEN:":PRINT 
139 FOR I-ü TO M:FRIHT A$(I3:MEXT I 
148 PRIMT$1:CL0SE1 


Va 
Harrnadik programunkban ri adhatunk fel rejtvenyt a 
számítaagepneKk. Gondolunk egy szamot 1 es 19 között, és 
, .. , , G ? , ál 
a gep tabt Kkerdés utan kitalalja. Ez a Program elegge 


s A , [Z z Ég 
bonyolult és hosszu, vigyazzunk a begepelesenel! Ha 
a s gy a a 
figyelmesen vegigolvassuK, majdnem mindent megtalalunk 
; f/4 A 4, 
benne, amirőül eddig sza esett. Ezért ütodsó ismétlő 


feladatnak is megfelel. 


ú REM 1 ES 19 KÖZÖTT 

5 PRINTET" 

18 FOR Isi1 TŰ 18:A(I5I:MEAT I 

zA FRIHT:FRINT 

389 FRINT"GOMDOLJ EGY SZAMRA 1 ES 1 KÖZÜTTI" 
48. IHPUT"FRIMSZAM? €DI/7HI":k$ 

ja IF ASZCAK$is73 THEM GÜTŰ 79 

64 A(lósk:Alzgiíszg: AA 3 Iza  H(Sssa: He7zizá: GÖTŐ 38 
74 AédisA: Al 6isH: Ar3szá: Argozht Ar 18os 

28 IMFLTSS-MEL  HAGYOBE? €17/M9";K£ 

aa IF ASC(K$osz73 THEM 114 

169 FÜR Is6£ TŰ 198:AfIszA:MEAT I:GÜTŐ 128 

1198 FOR Is1i TD 3:A(I:s5A:MEAT I 

129 GŐSLB EBY 

138 IF kzi THEM GÜTŐ 18 

148 IHPLT"PAROZ SZAM? fI5/7M2".K$ 

128 IF ASC(K$iz73 THEM GÜTŐ 178 

166 FOR IA TŰ 18 STER 2:HÉIssf:MEZT I:GÜTŐ 158 
178 FÜR Isi TŰ 9 STEP 2:H(Ii58:MEAT I 

159 GOSLIE 6Mg 

198 IF ksi1 THEM GÜTŐ 19 

191 IHEUTS3-MAL  ÜSZTHATO? €I/M2";K£ 

152 IF AS5C(K$észriz THEH GÜTŰ 194 

193 A(30g:Aréssü: Hegoszá: GÜTŰ 196 


zek ez 


194 A(1958:A(ZI58: A(45B: AS isg: He7 isa 
195 A(BIsA: AC 19123 

196 605UB 689 

197 IF Kz1 THEN GOTD 19 

299 INPUT"S-TEL OSZTHATO? f(I7/MH2";K$ 
z19 IF ASC(K$iz73 THEM GOTO 238 

zzz ACSIsA: AC 1935A:GOTO 258 

2309 FOR Is1 TŰ 4:A(Ids8:MEXT I 

249 FOR Is6 TO 9:RfI358:MEXT I 

2509 GOSUB 690 

269 GOTÓ 18 

609 K:508 

619 FOR Is1 TŰ 18:IF A(I2:A THEM GOTÓ 638 
628. Eskt1: B5sA( I) 

639 NEXT I 

6489 IF KZD1 THEM 788 

659 PRINT"A KERESETT SZAM s"B 

708 RETURN 


SZE 


TÁBLÁZATOK 


ze 


BILLENTYŰ 
CTRL § 1 
CTRL 182 
CTRL t 3 
CTRL.§ 4 
CTRL 45 
CTRL §6 
CTRL £7 
CTRL tf 8 
Cz 4 1 
C€- 48 
Cz 43 
Cz 4 4 
Cs 45 
Cz 416 
Cz 47 
Cs 18 


z 
SZ ÍNKEZELÉS 


SZÍN 


FEKETE 
FEHÉR 
PIROS 
? [4 

CIANKEK 

/ 
BÍBOR 
ZÖLB 

(4 
KEK 

Z 
SARGA 
NARANCS 
BARNA 

g a 
ROZSASZIN 
SÖTETSZÜRKE 
KÖZÉPSZÜRKE 
VILÁAGOSZÖLD 


A 
VILÁGOSKÉK 


VILÁGOSSZÜRKE 


új 


[A 
KÉPERNYŰ - 
JEL 


JEL 


PRIORITÁS-TÁBLÁZAT 


HASZNÁLAT 


Hatványozas 
Tagadás 


Lé 
Szorzas 
T 
Osztas 


a f 
Osszeadas 
át vé 1 
Kivonas 


Arányiító 
" 
műveletek 


Logikai NEM 


Logikai ES 


Logikai VAGY 


i 
bő 


PÉLDA 


ALAPTKIÍTtTEevO 


CURSORMOZGATÁS JELEI IDÉZŐJELEN BELÜL 


BILLENTYŰ 


CLR/HOME 

SHIFT t CLR/HOVWE 
CRSR LE 

CRSR FEL 

CRSR JOBBRA 


CRSR BALRA 


JEL 


CHRHs-TÁBLÁZAT 


HATÁS CHR:$ HATÁS CHRE HATÁS CHR§ 
o ! 33 G 71 
1 " 34 H 72 
2 H 35 I 73 
6 B 36 a 74 
4 HA 37 K 75 
FEHÉR 5 a 38 L 76 
6 ; 39 M 77 
7 4 49 N 78 
SHIFT(C- ) 41 o 79 
KIKAPCS. 8 x 42 P 89 
SHIFT(C- 4 43 a 81 
BEKAPCS. 9 A 44 R 82 
19 8 45 s 83 
11 k 46 zi 84 
12 2 47 U 85 
RETURN 13 [2 48 by) 86 
KKCS 1 49 ul 87 
F-sA. 14 2 59 x 88 
15 3 51 Y 89 
16 4 58 z 99 
CRSR LE 17 5 53 li 91 
RVS BE 18 S 54 É 92 
CLR/ 7 55 ] 93 
HOME 19 8 56 1 94 
INST/ŐEL 20 3 57 4 95 
e : 58 sz 36 
22 ; 59 4. 97 
23 £ 69 I 98 
24 z 61 — 99 
e5 b 62 — 198 
ee 2 563 s 191 
7 fej 64 bzs 102 
PIROS 28 A 65 I 193 
CRSR B 66 I 194 
JOBB eg c 67 4 195 
ZÖLD 30 D 68 c 196 
KÉK 31 E 63 2 197 
SZÓKÖZ 32 F 70 18 198 


HATÁS CHR$ HATÁS — CHRS HATÁS CHRÉ 


es 199 £4 138 si 164 
4 110 FB 139 l 165 
7 111 £8 140 HE 166 
71) 112 SHIFT/ I 167 
. 113 RETURN 141 54 168 
fs 114 KKCS y 169 
v 115 A-3F 148 l 170 
l 116 143 k 171 
r 117 FEKETE 144 ú 172 
Ja 118 CRSR FEL 145 L 173 
o, 119 RVS KI 146 a 174 
úv 120 CLR/HOME 147 za 175 
I 121 INST/DEL 148 r 176 
. 182 BARNA 149 a 77 
th 183 RÓZSASZÍN 158 Tr 178 
§ 124 S. SZÜRKE 151 4 173 
l 125 K. SZÜRKE 152 l 189 
1 126 WV. ZÖLD 153 I 181 
g 127 YV. KÉK 154 l 182 
128 WV. SZÜRKE 155 s 183 
NARANCS 189 BÍBOR 156 új 184 
139 CRSR BAL 157 sa 185 
131 SÁRGA 158 .] 186 
132 CIÁNKÉK 159 u 187 
f1 133 NEGATÍV . 188 
£3 134 SZÓKÖZ 169 a 189 
£5 135 í 161 199 
£7 136 üg 162 u, 191 
fe 137 — 163 


CHR$ 192-223 ugyanaz, mint CHR$ 96-127 
CHR$ 224-254 ugyanaz, mint CHRE 169-199 
CHR$ e55 ugyanaz, mint CHR$ 126 


RÖVIDÍTÉSEK A TÁBLÁZATBAN: 


KKCS z karakterkészlet-csere 
F z felső 

A 2 alsó 

KIKAPCS. —z Kikapcsolás 


u 


BEKAPCS. bekapcsolás 


ved zt 
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